Circle procedure

  DECLARATION:  Circle(X,Y : Integer; Radius : Word);

      PURPOSE:  Draws a circle using (X,Y) as the center point

         UNIT:  Graph

      REMARKS:  The circle will be drawn in the current color set
                SetColor.  Each graphics contains an aspect ratio that
                is used by Circle, Arc, and PieSlice to make circles.

 RESTRICTIONS:  Must be in graphics mode.

      EXAMPLE:  Uses Graph;

                Var
                   Gd, Gm : Integer;
                   Radius : Integer;

                Begin
                   Gd := Detect;
                   InitGraph(Gd, Gm, '');
                   If(GraphResult <> grOK) Then
                      Halt(1);
                   For Radius := 1 to 5 do
                      Circle(100,100,Radius*10);
                   ReadLn;
                   CloseGraph;
                End.